6 POKE53280,14:POKE53281,6 10 DIM HF(96),LF(96),PT(9,9),AS(255),WT$(9),ND(2,22),MU(99,3) 90 P1%=PEEK(828):P2%=PEEK(829):P3%=PEEK(830) 99 FT=0 100 REM TITLE PAGE 110 POKE53272,23:PRINT "[159][147]";SPC(16);"[215][197][204][195][207][205][197][157][157][157][157][157]TO[157][157][157][157][157][157][195]ODE[208]RO-64[146]" 115 PRINT " ([193] [195]OMMODORE 64 [212]UTORIAL)":PRINT SPC(18);"BY" 120 PRINT" [211][217][211][212][197][205][211] [205][193][206][193][199][197][205][197][206][212] [193][211][211][207][195][201][193][212][197][211]" 125 PRINT SPC(11);"3700 [195]OMPUTER [196]RIVE":PRINT SPC(12);"[210]ALEIGH, [206][195] 27609" 130 PRINT" [195]OPYRIGHT (C) 1983":PRINTTAB(10);"'[193]LL [210]IGHTS [210]ESERVED'" 135 PRINT SPC(6);"[208]LEASE [215][193][201][212][146] FOR PROGRAM [204][207][193][196][146]" 136 IFFT=0THENGOSUB3300:GOSUB9000:FT=1 137 IFFT=1THEN FORT=0TO1500:NEXTT 150 PRINT"[147][159]";:PT$=" [215]ELCOME TO THE [195]ODE[208]RO-64 DEMO! ":GOSUB9410:PRINT 151 GOSUB9300 152 PRINT" [217]OU WILL BE SEEING SOME OF THE MORE" 153 GOSUB9300 154 PRINT" THAN ";:PT$="160":GOSUB9410:PRINT" TUTORIAL AND INSTRUCTIONAL" 155 GOSUB9300 156 PRINT" SCREENS IN THIS SYSTEM IN THE NEXT" 157 GOSUB9300 158 PRINT" 5 MINUTES. " 164 PRINT" [195]ODE[208]RO-64 TEACHES YOU [194][193][211][201][195], [211]PRITE," 165 GOSUB9300 166 PRINT" AND [205]USIC PROGRAMMING...";:PT$="VISUALLY":GOSUB9410:PRINT"..." 167 GOSUB9300 168 PRINT" [217]OU ARE IN ";:PT$="COMPLETE CONTROL":GOSUB9410:PRINT" AND USE" 169 GOSUB9300 170 PRINT" OUR [205]AIN [205]ENU TO SELECT TOPICS..." 171 ML=25:PT$=F7$:GOSUB9420 172 GOSUB9400 200 GOSUB201:GOTO245 201 POKE53272,23:PRINT"[146][159][147][195]ODE[208]RO-64 (C) 1983, [211][205][193] [205]AIN [205]ENU" 202 POKE54296,0 203 PRINT" [207]VERVIEW":PRINT" 0 - [213]SING [195]ODE[208]RO-64 " 204 PRINT" 1 - [195][194][205]-64 [203]EYBOARD [210]EVIEW " 206 PRINT" [194][193][211][201][195][160][212]UTORIAL" 207 PRINT" 2 - [201]NTRODUCTION TO [194][193][211][201][195] " 208 PRINT" 3 - [194][193][211][201][195][160][195]OMMANDS " 210 PRINT" 4 - [194][193][211][201][195][160][211]TATEMENTS " 212 PRINT" 5 - [194][193][211][201][195][160][198]UNCTIONS " 214 PRINT" [199]RAPHICS & [205]USIC" 215 PRINT" 6 - [203]EYBOARD GRAPHICS " 216 PRINT" 7 - [201]NTRODUCTION TO [211][208][210][201][212][197][211] " 218 PRINT" 8 - [211][208][210][201][212][197][160][199]ENERATOR " 220 PRINT" 9 - [211][208][210][201][212][197][160][196]EMONSTRATOR " 222 PRINT" [193] - [201]NTRODUCTION TO [205][213][211][201][195] " 224 PRINT" [194] - [205][213][211][201][195][160][199]ENERATOR " 226 PRINT" [195] - [205][213][211][201][195][160][196]EMONSTRATOR " 228 PRINT" [207]THER [207]PTIONS":PRINT" [203] - [203]EYWORD [201]NQUIRY " 230 PRINT" [210] - [210]UN [211]AMPLE [208]ROGRAMS " 233 RETURN 245 ML=25:PT$=" [212]HESE ARE THE TOPICS WE WILL COVER. ":GOSUB9420 250 NS=1152:NL=03:GOSUB1190:GOSUB1192:NS=1192:NL=03:GOSUB1190:GOSUB1192 251 NS=1312:NL=03:GOSUB1190:GOSUB1192:NS=1352:NL=03:GOSUB1190:GOSUB1192 252 NS=1392:NL=22:GOSUB1190:NS=1432:NL=03:GOSUB1190:GOSUB1192 253 NS=1552:NL=03:GOSUB1190:GOSUB1192:NS=1592:NL=03:GOSUB1190:GOSUB1192 254 NS=1632:NL=22:GOSUB1190:NS=1672:NL=25:GOSUB1190 255 NS=1712:NL=03:GOSUB1190:GOSUB1192:NS=1752:NL=21:GOSUB1190 256 NS=1792:NL=24:GOSUB1190:NS=1912:NL=03:GOSUB1190:GOSUB1192 257 NS=1952:NL=03:GOSUB1190:GOSUB1192 258 ML=25:PT$=F7$:GOSUB9420:GOSUB9400 259 GOSUB2200:GOSUB3450:GOSUB3100:GOSUB2600:GOSUB900:GOSUB4000:GOTO1500 400 GOTO1000 900 PRINT"[147][159]" 902 PRINT" [212]HE [195]OMMODORE 64 [211]OUND [201]NTERFACE" 903 GOSUB9300 904 PRINT" [196]EVICE ";:PT$="([211][201][196])":GOSUB9410:PRINT" IS A UNIQUE AND QUITE" 905 GOSUB9300 906 PRINT" VERSATILE MUSIC SYNTHESIZER...BUT IT" 907 GOSUB9300 908 PRINT" IS ";:PT$="COMPLEX AND DIFFICULT":GOSUB9410:PRINT" TO PROGRAM." 909 GOSUB9300 910 PRINT" [195]ODE[208]RO-64 HELPS YOU ";:PT$="MASTER":GOSUB9410:PRINT" SOUND" 911 GOSUB9300 912 PRINT" EFFECTS AND MUSIC GENERATION WITH THE" 913 GOSUB9300 914 PRINT" [211][201][196] BY LETTING YOU ";:PT$="[197]XPERIMENT":GOSUB9410:PRINT" WITH" 915 GOSUB9300 916 PRINT" THE [211][201][196]..." 917 GOSUB9300 918 PRINT" [207]UR ";:PT$="[205][213][211][201][195][160][196]EMONSTRATOR":GOSUB9410:PRINT" LETS YOU ENTER" 919 GOSUB9300 920 PRINT" VARIOUS COMBINATIONS OF [211][201][196] REGISTER" 921 GOSUB9300 922 PRINT" VALUES AND ";:PT$="HEAR THE RESULTS":GOSUB9410:PRINT" BY" 923 GOSUB9300 924 PRINT" PLAYING A KEYBOARD 'ORGAN'." 925 GOSUB9300 926 PRINT" [215]ATCH AND LISTEN NOW..." 927 ML=25:PT$=F7$:GOSUB9420 928 GOSUB9400 1000 POKE53272,21:PRINT"[159][147]CODEPRO-64 MUSIC DEMONSTRATOR C.0.4"; 1001 POKE54296,15 1002 ND=1:NZ=50:LN=3:REM NZ=77 FOR 3 LN 1009 PRINT"[146] " 1010 PRINT"[146]  [144]  [144]  [194] [144]  [144]  [144]  [194] [144]  [144]  [194] [144]  [144]  [146] LAST" 1012 PRINT"[146]  [144]  [144]  [194] [144]  [144]  [144]  [194] [144]  [144]  [194] [144]  [144]  [146] NOTE" 1014 PRINT"[146]  [146]2 [146]3 [194] [146]5 [146]6 [146]7 [194] [146]9 [146]0 [194] [146]- [146]\ [146] " 1016 PRINT"[146]  [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [194] [146] " 1018 PRINT"[146] Q[194]W[194]E[194]R[194]T[194]Y[194]U[194]I[194]O[194]P[194]@[194]*[194]^" 1020 PRINT"[159]#[146] WF[146] PULSE[146] A[146] D[146] S[146] R[146] DUR[146] S/M[146] OCT[146]" 1024 GOSUB1200 1026 PRINT"SELECT LINE WITH CURSOR. PLAY KEYBOARD," 1027 PRINT"OR PRESS F2 TO EDIT LINE OR F4 FOR SONG."; 1028 ML=23:PT$="CODEPRO LETS YOU SELECT & EDIT SID ":GOSUB9420 1029 ML=24:PT$="PARAMETERS AND PLAY THE KEYBOARD. ":GOSUB9420 1030 PRINT"";:FORN=0TOLN:PRINT"";:NEXTN 1031 PRINT"";RIGHT$(STR$(LN),1); 1040 AD=9:SR=0:POKEV1+5,9:POKEV1+6,0:POKEV1+2,0:POKEV1+3,8:OV=60 1041 NZ=0 1042 TY=20:WN=65:WF=64:NX=0:NI=1 1043 NX=NX+NI:IFNX>22ORNX<1THEN1060 1044 NY=NX-NI:IFNY<1THENNY=1 1045 IFNY>22THENNY=22 1046 POKEPZ,ND(0,NX):POKEPZ+1,ND(1,NX):POKEPX+ND(2,NY),32:POKEPX+ND(2,NX),81 1048 NN=OV+NX:POKEV1+5,0:POKEV1+6,0:POKEV1+4,8:POKEV1+4,0 1050 POKEV1,LF(NN):POKEV1+1,HF(NN):POKEV1+5,AD:POKEV1+6,SR 1052 POKEV1+4,WN:TX=TI+TY 1054 IFTX>TITHEN1054 1056 POKEV1+4,WF:GOTO1043 1060 NZ=NZ+1:IFNZ>1THEN1140 1062 PRINT"";:FORN=0TOLN:PRINT"";:NEXTN 1063 PRINT"[146][159]";RIGHT$(STR$(LN),1); 1064 LN=0:PRINT"";:FORN=0TOLN:PRINT"";:NEXTN 1065 PRINT"";RIGHT$(STR$(LN),1); 1070 AD=9:SR=208:WN=33:WF=32:POKEV1+5,9:POKEV1+6,208:POKEV1+2,0:POKEV1+3,0 1072 TY=10:NX=22:NI=-1:OV=36 1074 GOTO1044 1100 REM 1135 REM FLASH -PLAY KEYBOARD- 1136 NS=1849:NL=14:GOSUB1190 1139 GOTO1030 1140 REM 1142 ML=25:PT$="PRESS F7 TO CONTINUE ":GOSUB9420 1149 GOSUB9400:RETURN 1190 FORN5=0TONL-1:N6=NS+N5:POKEN6,PEEK(N6)+128:NEXTN5:FORT=0TO250:NEXTT:RETURN 1192 FORN5=0TONL-1:N6=NS+N5:POKEN6,PEEK(N6)-128:NEXTN5:FORT=0TO100:NEXTT:RETURN 1194 FORN5=0TONL-1:N6=NS+N5:POKEN6,PEEK(N6)+128:NEXTN5:FORT=0TO2000:NEXTT:RETURN 1196 FORN5=0TONL-1:N6=NS+N5:POKEN6,PEEK(N6)-128:NEXTN5:FORT=0TO20:NEXTT:RETURN 1199 STOP 1200 PRINT"0 33(S) 0, 0 0 9 12 12 10 S 3" 1201 PRINT"1 33(S) 0, 0 0 9 12 12 20 M 5" 1202 PRINT"2 17(T) 0, 0 0 9 12 12 20 M 5" 1203 PRINT"3 65(P) 8, 0 0 9 12 12 20 M 5" 1204 PRINT"4 129(N) 0, 0 0 9 12 12 20 M 2" 1205 PRINT"5 33(S) 0, 0 4 10 8 10 20 M 5" 1206 PRINT"6 0 0, 0 0 0 0 0 0 S 0" 1207 PRINT"7 0 0, 0 0 0 0 0 0 S 0" 1208 PRINT"8 0 0, 0 0 0 0 0 0 S 0" 1209 PRINT"9 0 0, 0 0 0 0 0 0 S 0" 1299 RETURN 1500 PRINT"[147][159] [195]ODE[208]RO-64 IS ONLY $59.95 (PLUS $3.00 1502 [153]" SHIPPING)! ATNND WE OFFER A 10-DAY " 1504 [153]" MONEYBACK GUARANTEE. (null)RDER NOW BY " 1506 [153]" CALLING (null)(null)(null)(null) ASC(null)VALVAL:" 1508 [153]"  1-800-762-7874 OPENWAIT" 1510 [153]" AND USE YOUR (null)LEN/(null)RIGHT$(null)ATN CARD. (null)R SEND " 1512 [153]" $62.95 TO:" 1514 [153]" OPEN (null)(null)(null)(null)VAL(null)(null) (null)ATN(null)ATNCHR$VAL(null)VAL(null)(null) ATN(null)(null)(null)LENRIGHT$ATN(null)VAL(null) " 1516 [153]" 3700 LENOMPUTER STR$RIVE " 1518 [153]" (null)ALEIGH, (null)LEN 27609 WAIT" 1520 [153]" (null)EMEMBER, YOU CAN EVALUATE LENODE(null)RO-64 "; 1522 [153]" FOR A FULL 10 DAYS AT NO RISK WITH OUR "; 1524 [153]" MONEYBACK QUARANTEE. " 1549 [137]1549 2200 [153]"LOADOPEN" 2201 [153]" (null)UR PEEKATN(null)RIGHT$LEN TUTORIAL COVERS ";:PT$[178]"ALL":[141]9410:[153]" PEEKATN(null)RIGHT$LEN" 2202 [141]9300:[153]" LANGUAGE COMMANDS, STATEMENTS, AND":[141]9300 2204 [153]" FUNCTIONS. (null)OU CHOOSE A TOPIC FROM":[141]9300 2206 [153]" THE ";:PT$[178]"MAIN MENU":[141]9410:[153]" OR FROM "; 2208 PT$[178]"TOPIC MENUS":[141]9410:[153]"..." 2210 ML[178]25:PT$[178]F7$:[141]9420 2218 [141]9400 2300 [143] STATEMENTS MENU 2302 [151]53272,23:[153]"OPENLOADWAITLENODE(null)RO-64 PEEKATN(null)RIGHT$LEN (null)TATEMENTS 4.0.0"; 2305 [153] " 0 - LEFT$OW TO (null)SE THE (null)(null)ATN(null)VAL(null)VAL(null)(null)(null)CLOSETUTORIAL" 2306 [153] " 1 - LEN(null)(null)(null)(null)(null)(null) WAIT (CHR$(null)(null)(null),CHR$(null)(null)(null)PEEK,(null)(null),(null)(null)(null),(null)(null)(null)) 2308 PRINT " 2 - [204][207][207][208][211] [146] ([198][207][210]...[206][197][216][212])" 2310 PRINT " 3 - [195][207][206][196][201][212][201][207][206][193][204][211] [146] ([201][198]...[212][200][197][206])" 2312 PRINT " 4 - [196][197][198][201][206][201][212][201][207][206] ([196][201][205], [196][193][212][193], [196][197][198][160][198][206])" 2314 PRINT "[160]5 - [201][206][208][213][212] ([199][197][212],[201][206][208][213][212],[210][197][193][196],[210][197][211][212][207][210][197])" 2316 PRINT " 6 - [207][213][212][208][213][212] ([208][210][201][206][212], [195][205][196])" 2318 PRINT" 7 - [198][201][204][197] [201]/[207] ([207][208][197][206],[195][204][207][211][197],[199][197][212]#,[201][206][208][213][212]#,":PRINT" [208][210][201][206][212]#)" 2319 PRINT " 8 - [207][212][200][197][210] ([195][204][210], [197][206][196], [208][207][203][197], [210][197][205], [211][212][207][208])" 2320 ML=24:PT$="[204]ET'S WATCH SOME OF THE [204][207][207][208][211] TUTORIAL":GOSUB9420 2322 FORN=0TO0:NS=1304:NL=24:GOSUB1190:NEXTN 2329 ML=25:PT$=F7$:GOSUB9420 2330 GOSUB9400 2350 PRINT"[147][159]" 2352 PRINT" [217]OU SCROLL THROUGH TEXT SCREENS AT":GOSUB9300 2354 PRINT" ";:PT$="YOUR OWN PACE":GOSUB9410:PRINT" TO STUDY A TOPIC. [212]HERE" 2355 GOSUB9300 2356 PRINT" ARE NUMEROUS ";:PT$="INTERACTIVE":GOSUB9410:PRINT" SCREENS THAT" 2357 GOSUB9300 2358 PRINT" SHOW YOU ";:PT$="CODE EXAMPLES":GOSUB9410:PRINT"." 2359 GOSUB9300 2362 PRINT" [195]ERTAIN TOPICS USE ";:PT$="[194]ASIC[214]IEW GRAPHICS":GOSUB9410:PRINT 2363 GOSUB9300 2364 PRINT" TO HELP YOU GRASP CONCEPTS ";:PT$="VISUALLY":GOSUB9410:PRINT"..." 2365 GOSUB9300 2366 PRINT" [215]ATCH THE NEXT SCREEN CAREFULLY..." 2367 GOSUB9300 2368 ML=25:PT$=F7$:GOSUB9420 2369 GOSUB9400 2400 REM BASICVIEW 2405 LI=50:IN=10:UP=20:LI$="50":IN$="10":UP$="20" 2410 POKE 53272,21 2412 PRINT "[147][159]CODEPRO-64  BASICVIEW [146] 4.2.3" 2414 PRINT"EXAMPLE STATEMENTS  FLOWCHART [146]"; 2416 GOSUB 2510:GOSUB2511:GOSUB2513:GOSUB2514:GOSUB2515 2418 PRINT ""; 2420 PRINT " CURRENT VALUES: ":PRINT" I = .. [146]" 2422 PRINT " J = .. [146]" 2424 ML=24:PT$=" WATCH AS WE DEMO THE FOR-NEXT LOOP. ":GOSUB9420 2425 PRINT"";SPC(28);"[170]"; 2426 GOSUB2516:GOSUB2520:GOSUB2530:GOSUB2540:GOSUB2550:GOSUB2560:GOSUB2570 2427 PRINT"";SPC(28);"[170]"; 2428 GOSUB2580:GOSUB2590 2429 PRINT"";SPC(28);"[170]"; 2430 GOSUB2505 2435 PRINT"";:GOSUB2516:GOSUB2510 2440 GOSUB2505 2445 PRINT"[146]";:GOSUB2516:GOSUB2510:PRINT"";:GOSUB2511:GOSUB2520 2446 I=IN:J=0:GOSUB2595 2450 GOSUB2505 2455 PRINT"[146]";:GOSUB2511:GOSUB2520:GOSUB2530:GOSUB2570 2456 PRINT"";:GOSUB2513:GOSUB2540 2457 J=2*I:GOSUB2595 2460 GOSUB2505 2466 PRINT "[146]";:GOSUB2513:GOSUB2540 2467 PRINT"";:GOSUB2514:GOSUB2550 2468 I=I+UP:GOSUB2595 2470 GOSUB2505 2475 PRINT"[146]";:GOSUB2514:GOSUB2550:PRINT"";:GOSUB2511:GOSUB2530 2478 IFI>LITHENGOTO2490 2480 GOSUB2505 2485 PRINT"[146]";:GOSUB2511:GOSUB2530:PRINT"";:GOSUB2570:PRINT"[146]";:GOSUB2585 2486 GOTO2455 2490 REM ALL DONE 2493 GOSUB2505 2499 PRINT"[146]";:GOSUB2530:GOSUB2511:PRINT"";:GOSUB2560:GOSUB2590:GOSUB2515 2500 REM ALL DONE 2501 PRINT ""; 2502 ML=25:PT$=" PRESS F7 TO CONTINUE ":GOSUB9420 2504 GOSUB9400:POKE53272,23:RETURN 2505 FOR T=0TO1000:NEXTT:RETURN 2510 PRINT " 05 ...";:RETURN 2511 PRINT " 10 FOR I=";IN$;" TO ";LI$;"[157][157][157][157][157][157][157][157][157][157][157][157]";"STEP ";UP$; 2512 RETURN 2513 PRINT " 20 J=2*I";:RETURN 2514 PRINT " 30 NEXT I";:RETURN 2515 PRINT " 40 ...";:RETURN 2516 PRINT"";SPC(15);" ENTRY--->";:RETURN 2517 RETURN 2519 RETURN 2520 PRINT"";SPC(25);"[207][183][183][183][183][183][183][208]";:PRINT"";SPC(25);"[180] I=";IN$;" [170]"; 2522 PRINT"";SPC(25);"[204][175][175][175][175][175][175][186]"; 2529 RETURN 2530 PRINT"";SPC(28);"[206][205]";"[157][157][157][206]I>[205][157][157][157][157][157][206] ";LI$;" [205]"; 2532 PRINT"[157][157][157][157][157][157][205] ?? [206][157][157][157][157][157][205] [206][157][157][157][205][206]"; 2539 RETURN 2540 PRINT""; 2541 PRINTSPC(25);"[207][183][183][183][183][183][183][208]";:PRINT"[157][157][157][157][157][157][157][157]";"[180]J=2*I [170]"; 2542 PRINT"[157][157][157][157][157][157][157][157]";"[204][175][175][175][175][175][175][186]"; 2549 RETURN 2550 PRINT""; 2551 PRINTSPC(25);"[207][183][183][183][183][183][183][208]";:PRINT"[157][157][157][157][157][157][157][157]";"[180]I=I+";UP$;"[170]"; 2552 PRINT"[157][157][157][157][157][157][157][157]";"[204][175][175][175][175][175][175][186]"; 2559 RETURN 2560 PRINT "";SPC(33);"YES[157][157][157][157][195][195]>"; 2569 RETURN 2570 PRINT "";SPC(24);"NO"; 2579 RETURN 2580 PRINT "";SPC(21);"[176][195][195]>[157][157][157][157][194][157][194][157][194][157][194][157][194][157][194][157][194][157][194][157][194][157][173][195][195][195][195]"; 2581 RETURN 2585 TT=050 2586 PRINT"";SPC(21);"[209][195][195][195][195]"; 2587 FOR T=1TOTT:NEXTT:PRINT"[159][157][157][157][157][157][173][195][195][195][195]";"[145][157][157][157][157][157][209]";:FORT=1TOTT:NEXTT: 2588 FOR T2=1TO8:PRINT"[159][157][194][145][157][209]";:FORT=1TOTT:NEXTT:NEXTT2 2589 PRINT"[157][159][194][145][157][176][209][195]>";:FOR T=1TOTT:NEXTT:PRINT"[159][157][157][157][157][176][195][195]>";:RETURN 2590 PRINT"";SPC(35);"EXIT"; 2591 RETURN 2595 I$=STR$(I):J$=STR$(J) 2596 PRINT ""; 2597 PRINT " CURRENT VALUES: ":PRINT" I = ";I$;" [146]"; 2598 PRINT ""; 2599 PRINT " J = ";J$;" [146]";:RETURN 2600 REM MUSIC GENERATOR DEMO 2601 GOTO2800 2602 GOSUB 2700:ZN=7 2604 REM NS=56216:FORNL=0TO19:POKENS+NL,1:NEXTNL 2605 REMNS=1946:NL=19:GOSUB1194 2680 GOSUB9400 2689 POKE53272,23:RETURN 2690 FORN=0TO2:POKENS+N,PEEK(NS+N)+128:NEXTN 2691 NS=NS-40:FORN=0TO2:POKENS+N,PEEK(NS+N)+128:NEXTN:NS=NS+40: 2692 RETURN 2694 REM GETA$:IFA$=""THEN2694 2695 FORN=0TO2:POKENS+N,PEEK(NS+N)-128:NEXTN 2696 NS=NS-40:FORN=0TO2:POKENS+N,PEEK(NS+N)-128:NEXTN:NS=NS+40:FORT=0TO250:NEXTT 2697 RETURN 2699 STOP 2700 REM MUSIC STAFF 2701 POKE 53272,21 2702 PRINT"[159][147]CODEPROMUSIC GENERATORB.2.5"; 2704 FOR I=1TO5 2705 PRINT "[170][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][180]"; 2706 IFI<5THENPRINT"[170]";SPC(38);"[180]"; 2707 NEXT I 2708 PRINT:PRINT" " 2710 PRINT"  PRESS SPACE BAR TO PLAY NOTE [146][159]" 2712 PRINT" NOTE ..[146] OCTAVE .[146] DURATION .[146]" 2714 PRINT" HI ...[146] LO ...[146] LOOP ....[146] " 2720 GOSUB2790 2722 PRINT"";NP$(1);"";NP$(1);"[145][145][145][145]";NP$(8); 2724 PRINT"";NP$(8);"[145]";NP$(10);"";NP$(10);"";NP$(8);"[146]"; 2726 PRINT""; 2727 PRINT" NOTE NUMBER ..[146] MAX NOTE ..[146]" 2728 PRINT"MOVE NOTE UP OR DOWN, LEFT OR RIGHT WITH "; 2730 PRINT" CURSOR KEYS, THEN HIT RETURN.[146]" 2732 ML=23:PT$="THE CODEPRO MUSIC GENERATOR LETS YOU ":GOSUB9420 2734 ML=24:PT$="CREATE, EDIT, PLAY & SAVE SIMPLE TUNES":GOSUB9420 2735 ML=25:PT$=" PRESS F7 TO CONTINUE ":GOSUB9420 2739 RETURN 2757 PRINT" HI ";HI$;"[146] LO ";LO$; 2786 RETURN 2790 NP$(01)="[195][209][195][145][157][157][157] [170] [157][157][157]" 2792 NP$(03)=" [209] [145][157][157][157][195] [180][157][157][157]" 2793 NP$(05)="[195][209][195][145][157][157][157] [170] [157][157][157]" 2794 NP$(06)=" [209] [145][157][157][157][195] [180][157][157][157]" 2795 NP$(08)="[195][209][195][145][157][157][157] [170] [157][157][157]" 2796 NP$(10)=" [209] [145][157][157][157][195] [180][157][157][157]" 2798 NL$(01)="C ":NL$(08)="G ":NL$(10)="A " 2799 RETURN 2800 PRINT"[147][159]" 2802 PRINT" [195]ODE[208]RO-64 TEACHES YOU ALL ABOUT" 2803 GOSUB9300 2804 PRINT" ";:PT$="[205][213][211][201][195][160][208]ROGRAMMING":GOSUB9410:PRINT" ON THE [195]OMMODORE 64." 2805 GOSUB9300 2806 PRINT" [217]OU GET INSTRUCTIONAL TEXT AND SOME" 2807 GOSUB9300 2810 PRINT" INTERACTIVE EXAMPLES IN THE ";:PT$="[201]NTRO-":GOSUB9415:PRINT 2812 PRINT" ";:PT$="DUCTION TO [205][213][211][201][195]":GOSUB9410:PRINT" TUTORIAL. [212]HEN YOU" 2813 GOSUB9300 2814 PRINT" GET TO COMPOSE TUNES USING OUR" 2815 GOSUB9300 2816 PRINT" ";:PT$="[205][213][211][201][195][160][199]ENERATOR":GOSUB9410:PRINT". [217]OU ENTER NOTES BY" 2817 GOSUB9300 2818 PRINT" MOVING A 'NOTE-CURSOR' ON THE SCALE" 2819 GOSUB9300 2820 PRINT" WITH THE CURSOR CONTROL KEYS..." 2821 GOSUB9300 2822 PRINT" [217]OU CAN ";:PT$="PLAY":GOSUB9410:PRINT" AND ";:PT$="RE-EDIT" 2824 GOSUB9410:PRINT" YOUR SONG." 2825 GOSUB9300 2826 PRINT" [193]ND YOU CAN ";:PT$="SAVE IT TO DISK!":GOSUB9410:PRINT"..." 2827 GOSUB9300 2828 PRINT" [215]ATCH AS WE SHOW YOU HOW THE " 2829 GOSUB9300 2830 PRINT" [195]ODE[208]RO-64 [205][213][211][201][195] [199]ENERATOR WORKS..." 2832 ML=25:PT$=F7$:GOSUB9420:GOSUB9400 2834 GOTO2602 3100 PRINT"[147][159]" 3102 PRINT" [201]N OUR ";:PT$="[211][208][210][201][212][197][160][196]EMONSTRATOR":GOSUB9410:PRINT" WE USE" 3103 GOSUB9300 3104 PRINT" INTERACTIVE GRAPHICS TO HELP YOU" 3105 GOSUB9300 3106 PRINT" LEARN ABOUT ";:PT$="[211][208][210][201][212][197][160][208]ROGRAMMING":GOSUB9410:PRINT"..." 3107 GOSUB9300 3108 PRINT" [212]HE NEXT SCREEN IS ONE OF MANY IN OUR" 3109 GOSUB9300 3110 PRINT" [211][208][210][201][212][197] [196]EMONSTRATOR TOPIC WHICH HELPS" 3111 GOSUB9300 3112 PRINT" YOU LEARN BY ";:PT$="VISUAL EXAMPLES":GOSUB9410:PRINT"..." 3113 ML=25:PT$=F7$:GOSUB9420 3114 GOSUB9400 3200 REM X/Y 3 SPRITES 3202 PRINT"[159][147]";SPC(35);"9.3.3";:GOSUB3406 3203 PRINT"";SPC(21);"[206]OW, LET'S WATCH[146]":PRINTSPC(21);"ALL 3 SPRITES[146] GO" 3204 PRINTSPC(21);"THROUGH A LOOP":PRINTSPC(21);"AT THE SAME TIME." 3210 PRINTSPC(21);"[206]OTE THAT WE USE AN";:PRINTSPC(21);"INCREMENT[146] OF  3 [146]" 3212 PRINTSPC(21);"AS WE MOVE THRU THE";:PRINTSPC(21);"LOOP." 3215 PRINTSPC(21);"[200]ERE ARE THE VALUES";:PRINTSPC(21);"IN THE [216] AND [217] REGS"; 3216 PRINTSPC(21);"AS THE SPRITES MOVE";:PRINTSPC(21);"AROUND THE SCREEN." 3217 PRINTSPC(21);"[211]PRITE[146] [216]-REG[146] [217]-REG[146]" 3218 PRINTSPC(21);" 0 050 055" 3219 PRINTSPC(21);" 1 025 100" 3220 PRINTSPC(21);" 2 025 055" 3225 POKEV+0,50:POKEV+1,55:POKEV+2,25:POKEV+3,100:POKEV+4,25:POKEV+5,55 3230 POKEV+0,50:POKEV+1,55:POKEV+2,25:POKEV+3,100:POKEV+4,25:POKEV+5,55 3231 Z=0:Z2=0:POKEV+21,7:FORT=0TO1000:NEXTT 3232 ML=23:PT$="[215]ATCH AS THE [211][208][210][201][212][197][211] MOVE THRU A LOOP.":GOSUB9420 3239 Z=Z+3:IF Z>130 THENZ=0:Z2=Z2+1:IFZ2>0THEN3268 3240 X=Z+25:Y=Z+55 3242 X$=STR$(X):X1$=MID$(X$,2,1):X2$=MID$(X$,3,1):X3$=RIGHT$(X$,1) 3243 IF X<100THENX2$=X1$:X1$="0" 3244 Y$=STR$(Y):Y1$=MID$(Y$,2,1):Y2$=MID$(Y$,3,1):Y3$=RIGHT$(Y$,1) 3245 IF Y<100THENY2$=Y1$:Y1$="0" 3246 X1=ASC(X1$):X2=ASC(X2$):X3=ASC(X3$) 3247 Y1=ASC(Y1$):Y2=ASC(Y2$):Y3=ASC(Y3$) 3250 POKEC4,Y1:POKEC5,Y2:POKEC6,Y3 3252 POKE D1,X1:POKED2,X2:POKED3,X3 3254 POKE E1,X1:POKEE2,X2:POKEE3,X3:POKEE4,Y1:POKEE5,Y2:POKEE6,Y3 3263 POKEV+0,50:POKEV+1,Y 3264 POKEV+2,X:POKEV+3,100 3265 POKEV+4,X:POKEV+5,Y 3266 GOTO3239 3267 GOSUB9100:GOTO3200 3268 ML=25:PT$=F7$:GOSUB9420 3269 GOSUB9400:POKEV+21,0:RETURN 3300 REM INIT 3306 V=53248 3307 POKEV+29,0:POKEV+23,0 3308 POKEV+21,0:POKEV+16,0 3310 FOR T=54272TO54296:POKET,0:NEXTT 3330 FOR J=1TO63:READN:POKE831+J,N:NEXTJ 3335 POKE2040,13:POKEV+39,1 3340 FOR J=1TO63:READN:POKE895+J,N:NEXTJ 3345 POKE2041,14:POKEV+40,14 3350 FOR J=1TO63:READN:POKE959+J,N:NEXTJ 3355 POKE2042,15:POKEV+41,3 3356 FOR J=1TO63:READN:POKE703+J,N:NEXTJ 3357 POKE2043,11:POKEV+42,1 3360 SM=1024:CM=55296:C1=SM+749:C2=C1+1:C3=C2+1:C4=C3+4:C5=C4+1:C6=C5+1 3362 D1=SM+789:D2=D1+1:D3=D2+1:D4=D3+4:D5=D4+1:D6=D5+1 3364 E1=SM+829:E2=E1+1:E3=E2+1:E4=E3+4:E5=E4+1:E6=E5+1 3380 DATA255,255,255,128,0,1,128,0,1,128,60,1,128,255,1,129,195,129 3382 DATA131,129,193,131,129,193,131,129,193,131,129,193,131,129,193,131,129,193 3384 DATA131,129,193,131,129,193,131,129,193,129,195,129,128,255,1,128,60,1 3386 DATA128,0,1,128,0,1,255,255,255 3388 DATA255,255,255,128,0,1,128,0,1,128,60,1,128,124,1,128,252,1,128,28,1 3390 DATA128,28,1,128,28,1,128,28,1,128,28,1,128,28,1,128,28,1,128,28,1,128,28,1 3392 DATA128,28,1,129,255,193,129,255,193,128,0,1,128,0,1,255,255,255 3394 DATA255,255,255,128,0,1,128,0,1,128,0,1,128,255,1,129,195,129,131,129,193 3396 DATA131,128,193,131,129,193,128,3,193,128,7,129,128,15,1,128,30,1 3397 DATA128,60,1,128,120,1,129,240,1,131,255,193,131,255,193,128,0,1,128,0,1 3398 DATA 255,255,255 3400 DATA 255,255,255,128,0,1,128,0,1,128,0,1,128,24,1,128,24,1,128,24,1 3402 DATA 128,60,1,128,60,1,128,126,1,128,126,1,128,255,1,133,60,161,134,60,97 3404 DATA 142,24,113,142,24,113,132,0,33,132,0,33,128,0,1,128,0,1,255,255,255 3405 RETURN 3406 PRINT"....5...10...15...20 [211][208][210][201][212][197] [196][197][205][207]" 3408 PRINT"";SPC(19);".[157].[157].[157]5[157].[157].[157].[157]1[157]0[157].[157].[157].[157]1[157]5[157].[157].[157].[157]2[157]0 3410 [153]"....5...10...15...20":[142] 3450 [153]"LOADOPEN" 3452 [153]" (null)OU JUST SAW AN EXAMPLE OF LENODE(null)RO'S" 3453 [141]9300 3454 [153]" UNIQUE ";:PT$[178]"PEEKASIC(null)IEW":[141]9410:[153]" GRAPHICS AS USED IN" 3455 [141]9300 3456 [153]" THE ";:PT$[178]"PEEKATN(null)RIGHT$LENCLOSE(null)TATEMENTS (null)UTORIAL":[141]9410:[153]"..." 3457 [141]9300 3458 [153]" (null)O HELP YOU WITH ";:PT$[178]"CREATING":[141]9410:[141]9300 3459 [153]" (null)(null)(null)RIGHT$(null)VAL(null) FOR":[141]9300 3460 [153]" USE IN YOUR OWN PROGRAMS, LENODE(null)RO-64" 3461 [141]9300 3462 [153]" PROVIDES A ";:PT$[178]"(null)(null)(null)RIGHT$(null)VALCLOSECHR$ENERATOR":[141]9410:[153]"..." 3463 [141]9300 3464 [153]" (null)OU ENTER (null)'S ON THE GENERATOR SCREEN" 3465 [141]9300 3466 [153]" TO ";:PT$[178]"DRAW YOUR SPRITE":[141]9410:[153]". LENODE(null)RO-64 WILL" 3467 [141]9300 3468 [153]" THEN CREATE THE SPRITE DATA AND SHOW" 3469 [141]9300 3470 [153]" YOUR SPRITE ON THE SCREEN...(YOU CAN" 3471 [141]9300 3472 [153]" ALSO ";:PT$[178]"SAVE YOUR SPRITE":[141]9410:[153]" TO DISK!)..." 3473 [141]9300 3474 [153]" ASCIRST YOU WILL SEE A COMPLETED SPRITE" 3475 [141]9300 3476 [153]" DEFINITION, WITH THE (null)'S ENTERED ON" 3477 [141]9300 3478 [153]" THE (null)(null)(null)RIGHT$(null)VALCLOSECHR$ENERATOR SCREEN..." 3479 ML[178]25:PT$[178]F7$:[141]9420 3480 [141]9400 3500 [143] SPRITE GENERATOR 3502 [153]"LOADOPENWAIT8.1.0 (null)(null)(null)RIGHT$(null)VAL CHR$VAL(null)VAL(null)ATN(null)(null)(null) ---STR$ATN(null)ATN---" 3504 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) 0,0,0" 3505 [153]"(null)......................(null) 0,0,0" 3506 [153]"(null)......................(null) 0,0,0" 3507 [153]"(null)......................(null) 0,0,0" 3508 [153]"(null)..........(null)(null)..........(null) 0,0,0" 3509 [153]"(null)..........(null)(null)..........(null) 0,0,0" 3510 [153]"(null)..........(null)(null)..........(null) 0,0,0" 3511 [153]"(null).........(null)(null)(null)(null).........(null) 0,0,0" 3512 [153]"(null).........(null)(null)(null)(null).........(null) 0,0,0" 3513 [153]"(null)........(null)(null)(null)(null)(null)(null)........(null) 0,0,0" 3514 [153]"(null)........(null)(null)(null)(null)(null)(null)........(null) 0,0,0" 3515 [153]"(null).......(null)(null)(null)(null)(null)(null)(null)(null).......(null) 0,0,0" 3516 [153]"(null)....(null).(null)..(null)(null)(null)(null)..(null).(null)....(null) 0,0,0" 3517 [153]"(null)....(null)(null)...(null)(null)(null)(null)...(null)(null)....(null) 0,0,0" 3518 [153]"(null)...(null)(null)(null)....(null)(null)....(null)(null)(null)...(null) 0,0,0" 3519 [153]"(null)...(null)(null)(null)....(null)(null)....(null)(null)(null)...(null) 0,0,0" 3520 [153]"(null)....(null)............(null)....(null) 0,0,0" 3521 [153]"(null)....(null)............(null)....(null) 0,0,0" 3522 [153]"(null)......................(null) 0,0,0" 3523 [153]"(null)......................(null) 0,0,0" 3524 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) 0,0,0" 3525 [153]" 5 10 15 20 24" 3526 ML[178]25:PT$[178]F7$:[141]9420 3527 [141]9400 3550 [153]"LOAD" 3552 [153]" (null)OW LENODE(null)RO-64 WILL "; 3554 PT$[178]"CALCULATE THE DATA":[141]9410 3555 [141]9300 3556 [153]" NEEDED TO ";:PT$[178]"DEFINE YOUR (null)(null)(null)RIGHT$(null)VAL ":[141]9410:[153]" AND THEN"; 3557 [141]9300 3559 [153]" DISPLAY THE DATA AND ";:PT$[178]"YOUR (null)(null)(null)RIGHT$(null)VAL":[141]9410:[153]"..." 3560 ML[178]25:PT$[178]F7$:[141]9420 3569 [141]9400 3602 [153]"LOADOPENWAIT8.1.0 (null)(null)(null)RIGHT$(null)VAL CHR$VAL(null)VAL(null)ATN(null)(null)(null) ---STR$ATN(null)ATN---" 3604 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) 255,255,255" 3605 [153]"(null)......................(null) 128,0,1" 3606 [153]"(null)......................(null) 128,0,1" 3607 [153]"(null)......................(null) 128,0,1" 3608 [153]"(null)..........(null)(null)..........(null) 128,24,1" 3609 [153]"(null)..........(null)(null)..........(null) 128,24,1" 3610 [153]"(null)..........(null)(null)..........(null) 128,24,1" 3611 [153]"(null).........(null)(null)(null)(null).........(null) 128,60,1" 3612 [153]"(null).........(null)(null)(null)(null).........(null) 128,60,1" 3613 [153]"(null)........(null)(null)(null)(null)(null)(null)........(null) 128,126,1" 3614 [153]"(null)........(null)(null)(null)(null)(null)(null)........(null) 128,126,1" 3615 [153]"(null).......(null)(null)(null)(null)(null)(null)(null)(null).......(null) 128,255,1" 3616 [153]"(null)....(null).(null)..(null)(null)(null)(null)..(null).(null)....(null) 133,60,161" 3617 [153]"(null)....(null)(null)...(null)(null)(null)(null)...(null)(null)....(null) 134,60,97" 3618 [153]"(null)...(null)(null)(null)....(null)(null)....(null)(null)(null)...(null) 142,24,113" 3619 [153]"(null)...(null)(null)(null)....(null)(null)....(null)(null)(null)...(null) 142,24,113" 3620 [153]"(null)....(null)............(null)....(null) 132,0,33" 3621 [153]"(null)....(null)............(null)....(null) 132,0,33" 3622 [153]"(null)......................(null) 128,0,1" 3623 [153]"(null)......................(null) 128,0,1" 3624 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null) 255,255,255" 3625 [153]" 5 10 15 20 24" 3626 [151] 53254,62:[151]53255,125:[151]53264,08:[151]53269,8 3627 ML[178]25:PT$[178]F7$:[141]9420 3628 [141]9400 3639 [151]53269,0 3648 [142] 4000 [153]"LOAD":[151]53272,23 4002 [153]" (null)E HAVE ONLY HIT THE HIGHLIGHTS OF" 4003 [141]9300 4004 [153]" LENODE(null)RO-64 IN THIS DEMO. (null)HERE ARE" 4005 [141]9300 4006 [153]" ";:PT$[178]"SIXTEEN":[141]9410:[153]" PEEKATN(null)RIGHT$LEN PROGRAMS IN THE SYSTEM" 4007 [141]9300 4008 [153]" (INCLUDING ";:PT$[178]"TWO SAMPLE PROGRAMS":[141]9410:[153]" FOR" 4009 [141]9300 4010 [153]" YOUR OWN USE)." 4011 [141]9300 4012 [153]" LENODE(null)RO-64 COMES WITH A ";:PT$[178]"140-PAGE":[141]9415:[153] 4014 [153]" ";:PT$[178]"REFERENCE MANUAL":[141]9410:[153]" AND HAS THESE OTHER" 4015 [141]9300 4016 [153]" FEATURES NOT SHOWN IN THE DEMO:" 4017 [141]9300 4018 [153]" - (null)EYBOARD REVIEW - RIGHT$NTRO TO PEEKATN(null)RIGHT$LEN" 4019 [141]9300 4020 [153]" - (null)EYBOARD CHR$RAPHICS - (null)(null)(null)RIGHT$(null)VAL RIGHT$NTRO" 4021 [141]9300 4022 [153]" - (null)USIC RIGHT$NTRO - (null)EYWORD (null)ELECT" 4023 [141]9300 4024 [153]" - PEEKATN(null)RIGHT$LENCLOSELENOMMANDS - PEEKATN(null)RIGHT$LEN ASCUNCTIONS"; 4025 [141]9300 4026 [153]" - (null)AMPLE (null)(null)(null)RIGHT$(null)VAL PROGRAM AND FILE" 4027 [141]9300 4028 [153]" - (null)AMPLE (null)(null)(null)RIGHT$LEN PROGRAM AND FILE" 4029 [141]9300 4030 [153]" RIGHT$F YOU ";:PT$[178]"ARE SERIOUS":[141]9410:[153]" ABOUT LEARNING TO" 4031 [141]9300 4032 [153]" PROGRAM YOUR LENOMMODORE 64 ";:PT$[178]"YOU OWE IT":[141]9415:[153] 4034 [153]" ";:PT$[178]"TO YOURSELF":[141]9410:[153]" TO TRY LENODE(null)RO-64." 4035 [141]9300 4036 ML[178]25:PT$[178]F7$:[141]9420 4038 [141]9400 4040 [142] 9000 [143] INIT 9002 QO$[178][199](34):F7$[178]" (null)RESS F7 TO CONTINUE " 9004 [151]53272,23:V[178]53248:[151]V[170]21,0 9006 [151]53280,14:[151]53281,6 9010 [129]N[178]0[164]11:[135]NT:[129]OC[178]7[164]0[169][171]1:[139]OC[179]7[167]NT[178]NT[173]2 9012 HF%[178]NT[173]256:LF%[178]NT[171]HF%[172]256:NN[178]OC[172]12[170]N[170]1:HF(NN)[178]HF%:LF(NN)[178]LF%:[130]OC:[130]N 9014 [131] 34334,36376,38539,40830,43258,45830,48556,51443 9016 [131] 54502,57743,61176,64814 9018 S[178]54272:[129]N[178]0[164]28:[151]S[170]N,0:[130]N 9020 V1[178]S:V2[178]S[170]7:V3[178]S[170]14:L1[178]V1:L2[178]V2:L3[178]V3:H1[178]L1[170]1:H2[178]L2[170]1:H3[178]L3[170]1 9040 [129]N[178]1[164]22:[135]ND(0,N),ND(1,N),ND(2,N):[130]N:PX[178]1070:PZ[178]1260 9042 [131]3,32,1,3,35,2,4,32,3,4,35,4,5,32,5,6,32,7,6,35,8,7,32,9,7,35,10,1,32,11 9043 [131]1,35,12,2,32,13,3,32,15,3,35,16,4,32,17,4,35,18,5,32,19,6,32,21 9044 [131]6,35,22,7,32,23,7,35,24,1,32,25 9099 [142] 9100 [129]T[178]54272[164]54296:[151]T,0:[130]T 9110 [151] 54296,15:[151]54277,0:[151]54278,240:[151]54273,34:[151]54272,75 9120 [151] 54276,17:[129]T[178]1[164]50:[130]T:[151]54276,16:[142] 9300 [129]T[178]0[164]050:[130]T:[142] 9302 FS[178]0 9305 [129] J[178]1[164]TC 9310 [161] A$:[139] A$[178]""[167] 9310 9315 A[178][198](A$) 9320 [139] A[177]132 [175] A[179]141[167][145]A[171]132[137]9390,9390,9390,9390,9350,9350,9350,9390 9325 NX$[178][202](TX$,J,1):NX[178][198](NX$) 9330 [139]A[178]32[176]A[178]160[176]A[178]NX[167]9370 9335 [139](NX[177]192[175]NX[179]219)[175]NX[171]128[178]A[167]9370 9340 [139](NX[177]64[175]NX[179]91)[175]NX[170]128[178]A[167]9370 9350 [141]9100:[137]9310:[143] ERROR 9370 [153]"CMD";NX$;".WAIT";:[130]J 9372 [153] "CMDWAIT "; 9375 [142] 9390 FS[178]1 9395 [142] 9400 [161]A$:[139]A$[178]""[167]9400 9401 [139]A$[178]"LET"[167][142] 9402 [137]9400 9410 PC[178][195](PT$):[153]""; 9412 [129]PN[178]1[164]PC:[153][202](PT$,PN,1);:[129]T[178]0[164]005:[130]T:[130]PN:[141]9300 9414 [153]"WAIT";:[142] 9415 PC[178][195](PT$):[153]""; 9417 [129]PN[178]1[164]PC:[153][202](PT$,PN,1);:[129]T[178]0[164]050:[130]T:[130]PN 9419 [153]"WAIT";:[142] 9420 [153]"";:[129]N[178]1[164]ML[171]1:[153]"";:[130]N 9421 PC[178][195](PT$):[153]" ";:[129]PN[178]1[164]38:[153]" ";:[130]PN 9422 [129]PN[178]1[164]PC:PS[178]PC[171]PN[170]1:[129]PM[178]1[164]PN:[153]"CMD";:[130]PM:[153][202](PT$,1,PN); 9424 [129]T[178]0[164]025:[130]T:[130]PN:[153]"WAITOPEN";:[142]